<?

//Initiate Authenticate
SecurityRedirect ();

//initiate Vars
define("PRIMARY_KEY","nobkt");
$KEY[]         = array("PRIMARY_KEY"=>PRIMARY_KEY);
$FileName      = "ais_transaction_cn_jo.php";
$FileTemplate  = "ais_transaction_cn_jo_list.html";
$TableName     = "ais_memorial";
$SubHeaderTitle= "Transaction Account Receivable - Credit Note Form Job Order";
$PageSize      = 10 ;
$HTMLGridList  = "DNGrid";
//************ FORM ACTION **************
    if (GetParam("Action","")=="Delete") {
        DeleteRecord ("txtCheck",$PageSize);
    }

//Initiate Database Table For Search;
$FCode = GetParam("cnSearch","");
$RCode = GetParam("RefSearch","");

//$FSkada = GetParam("skadaSearch","");
//$FDept = GetParam("deptSearch","");

//******* DATABASE FORM QUERY ***********
$SQL = "SELECT * FROM `$TableName` ";
$SQLCount = "SELECT count(*) FROM `$TableName` ";
$WHERE  = "ktrasl=".GetOfficeID();

//Retrieve Parameter from search
if ($FCode) {
    $CustomWhere = " nobkt like '".$FCode."%'";
    if (strlen($WHERE)) $WHERE .= " AND ".$CustomWhere;
    else $WHERE = $CustomWhere;
}

if ($RCode) {
    $CustomWhere = " noref like '".$RCode."%'";
    if (strlen($WHERE)) $WHERE .= " AND ".$CustomWhere;
    else $WHERE = $CustomWhere;
}

//dyah.10-08-09
if (strlen($WHERE)){
    $WHERE .= " AND urut=999 AND nobkt like 'NK%'";
    $WHERE .= " AND nobkt NOT REGEXP '^NK[0-9]{2}13' ";
    $WHERE .= " AND ".QueryLedger();
}

if (strlen($WHERE)) {
    $SQL = $SQL."WHERE ".$WHERE;
    $SQLCount .= "WHERE ".$WHERE;
}
else $SQL = $SQL;
$SQL .= " ORDER BY tglbkt DESC, nobkt DESC";


//Select Customer
//$SQLDept = "SELECT * FROM tbldept";

//******* SHOW FORM CONTENT *********
$PageNum = 1;
$RecCnt = $DBConnection->dbc->get_var($SQLCount) ;

if (GetParam("PageNum","")) $PageNum  = GetParam("PageNum","");

$TBS = new clsTinyButStrong ;
$TBS->LoadTemplate($MOD_TEMPLATE_DIR."/".$FileTemplate);
$TBS->MergeBlock("bln",$KEY);

$TBS->MergeBlock("blg",$DBMysql,$SQL,$PageSize,$PageNum,$RecCnt);
//$TBS->MergeBlock("deptblk",$DBMysql,$SQLDept);
$TBS->MergeNavigationBar('nv',array('size'=>10,'pos'=>'centred'),$PageNum,$RecCnt,$PageSize) ;
$TBS->Show();


function DeleteRecord ($sequence_name,$PageSize) {
    global $DBConnection,$FileName,$TableName;
    for ($x=1;$x<=$PageSize;$x++) {
        if (GetParam($sequence_name.$x,"")) {
            $DBConnection->Delete("$TableName",$sequence_name.$x);
        }
    }
    header("Location: $FileName");
    exit;

}

?>
